;;; init-function.el --- some tool function
;;; Commentary:
;;; Code:

(defun my/open-init-file ()
  "Edit the `use-init-file`, in another window."
  (interactive)
  (find-file user-init-file))

(defun my/kill-other-buffers ()
  "Kill all buffers but the current one.
Doesn't mess with special buffers."
  (interactive)
  (seq-each
   #'kill-buffer
   (delete (current-buffer) (seq-filter #'buffer-file-name (buffer-list)))))

(defun my/save-all-buffers ()
  "Save all buffers."
  (interactive)
  (seq-each #'save-buffer (buffer-list)))

(provide 'init-function)
;;; init-function.el ends here
